home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / feb94 / lc2fig10.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  51KB  |  517x364  |  8-bit (256 colors)
Labels: text | screenshot | display | software | number | font
OCR: SORTFLTR :: #Form1 :: ResetFilterValues method ResetFilterValues() var iFilterFields, ii SmallInt ; Number of fields we're filtering on ; Counter when building value for txtFilterValue aFilterVal, aTag String ; Value of filter endVar aTag = 1stSortOrder.list.value tcMast.enunFieldNamesInIndex(dyIndexes[aTag], ayIndexFields) ; If there's only 1 field in the index, then display just one ; value since that's all we'll be filtering on. iFilterFields = max(1,SmallInt(ayIndexFields.size()-1)) ; Produce concatenated list in which each value gets a line. aFilterVal = *** for ii from 1 to iFilterFields aFilterVal = aFilterVal + "<"+ dyMastRec[ayIndexFields[ii]] + ">\n" endFor ; Remove the last linefeed txtFilterValue = aFilterVal.subStr(1, aFilterVal.size()-1 ) endMethod Edit Line: 13 Col: 32